home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 196 / 196.d81 / f-key set maker (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2000-01-01  |  540 b   |  19 lines
  1. 1 rem * j-dos f-key set maker *
  2. 10 dv=8
  3. 11 f1$="@t"+chr$(13)+chr$(0)
  4. 12 f2$="[147]l[201]"+chr$(13)+chr$(0)
  5. 13 f3$="@$"+chr$(13)+chr$(0)
  6. 14 f4$="@$:"+chr$(0)
  7. 15 f5$="@p,4,7"+chr$(13)+chr$(0)
  8. 16 f6$="@   s:"+chr$(0)
  9. 17 f7$=""+chr$(0)
  10. 18 f8$="@  cd:"+chr$(13)+chr$(0)
  11. 19 fl$="general.f-keys"
  12. 20 bf=820:lb=bf and 255:hb=int(bf/256)
  13. 22 ky$=f1$+f3$+f5$+f7$+f2$+f4$+f6$+f8$
  14. 24 ln=len(ky$):ea=bf+ln
  15. 26 for i=1 to ln:poke bf+i-1,asc(mid$(ky$,i,1)):next
  16. 28 rem poke176,lb:poke177,hb:poke155,0:end
  17. 30 sys 57812 fl$,dv,1:poke 193,lb:poke 194,hb
  18. 32 poke 174,ea and 255:poke 175,ea/256:sys62957
  19.